home *** CD-ROM | disk | FTP | other *** search
/ Java Programmer's Toolkit / Java Programmer's Toolkit.iso / gs3.53 / gs_dps1.ps < prev    next >
Text File  |  1996-01-10  |  8KB  |  278 lines
  1. %    Copyright (C) 1990, 1991, 1993, 1994 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Initialization file for analogs of Display PostScript functions
  19. % that are also included in Level 2.
  20. % When this is run, systemdict is still writable,
  21. % but (almost) everything defined here goes into level2dict.
  22.  
  23. level2dict begin
  24.  
  25. % ------ Virtual memory ------ %
  26.  
  27. /currentshared /.currentglobal load def
  28. /scheck /.gcheck load def
  29. %****** FOLLOWING IS WRONG ******
  30. /shareddict currentdict /globaldict .knownget not { 20 dict } if def
  31.  
  32. % Global and LocalFontDirectory must remain in systemdict
  33. % even if we temporarily exit Level 2 mode.
  34.  
  35. end                % level2dict
  36. systemdict begin
  37.  
  38. /SharedFontDirectory FontDirectory .gcheck
  39.  { .currentglobal false .setglobal
  40.    /LocalFontDirectory FontDirectory dup maxlength dict copy def
  41.    .setglobal FontDirectory
  42.  }
  43.  { /LocalFontDirectory FontDirectory def
  44.    50 dict
  45.  }
  46. ifelse def
  47.  
  48. end                % systemdict
  49. level2dict begin
  50.  
  51. % setshared must rebind FontDirectory to the appropriate one of
  52. % Local or SharedFontDirectory.
  53.  
  54. /.setglobal
  55.  { .setglobal
  56.    //systemdict /FontDirectory .currentglobal
  57.     { //SharedFontDirectory }
  58.     { //systemdict /LocalFontDirectory get }    % can't embed ref to local VM
  59.    ifelse .forceput
  60.  } .bind odef        % must bind .forceput and .setglobal
  61.             % even if NOBIND in effect
  62. /setshared /.setglobal load def
  63. .currentglobal setshared
  64.  
  65. % ------ Fonts ------ %
  66.  
  67. /selectfont
  68.  { exch findfont exch
  69.    dup type /arraytype eq { makefont } { scalefont } ifelse
  70.    setfont
  71.  } odef
  72. % Undefinefont has to take local/global VM into account.
  73. /undefinefont
  74.  { FontDirectory 1 index undef
  75.    .currentglobal
  76.     {        % Current mode is global; delete from local directory too.
  77.       systemdict /LocalFontDirectory .knownget
  78.        { exch undef }
  79.        { pop }
  80.       ifelse
  81.     }
  82.     {        % Current mode is local; if there was a shadowed global
  83.         % definition, copy it into the local directory.
  84.       systemdict /SharedFontDirectory .knownget
  85.        { 1 index .knownget
  86.       { FontDirectory 3 1 roll put }
  87.       { pop }
  88.      ifelse
  89.        }
  90.       if
  91.     }
  92.    ifelse
  93.  } odef
  94.  
  95. % If we load a font into global VM within an inner save, the restore
  96. % will delete it from FontDirectory but not from SharedFontDirectory.
  97. % We have to handle this by making restore copy missing entries from
  98. % SharedFontDirectory to FontDirectory.  Since this could slow down restore
  99. % considerably, we define a new operator .dictcopynew for this purpose.
  100. % Furthermore, if FAKEFONTS is in effect, we want global real fonts to
  101. % override fake local ones.  We handle this by brute force.
  102. /restore
  103.  { //restore
  104.    //systemdict /LocalFontDirectory get
  105.    FAKEFONTS
  106.     { mark 1 index dup { length 1 gt { pop } { 2 copy pop } ifelse } forall
  107.       pop counttomark 2 idiv { undef } repeat pop
  108.     }
  109.    if
  110.    //SharedFontDirectory exch .dictcopynew pop
  111.  } bind odef
  112.  
  113. % ------ Halftones ------ %
  114.  
  115. /.makestackdict
  116.     { { counttomark -1 roll } forall .dicttomark
  117.     } bind def
  118. /currenthalftone
  119.     { mark .currenthalftone
  120.        { { exch pop }        % halftone
  121.          { /HalftoneType 1        % screen
  122.         { /Frequency /Angle /SpotFunction }
  123.            .makestackdict
  124.          }
  125.          { /HalftoneType 2        % colorscreen
  126.         { /RedFrequency /RedAngle /RedSpotFunction
  127.           /GreenFrequency /GreenAngle /GreenSpotFunction
  128.           /BlueFrequency /BlueAngle /BlueSpotFunction
  129.           /GrayFrequency /GrayAngle /GraySpotFunction
  130.         }
  131.            .makestackdict
  132.          }
  133.        }
  134.       exch get exec
  135.     } odef
  136. % Define sethalftone so it converts all other types to type 5.
  137. /.sethalftoneRGBV    % <dict> <type> <keys> <keysRGBV>
  138.     { 4 -1 roll exch { 1 index exch get exch } forall 15 1 roll
  139.       14 -2 roll mark 15 1 roll { /Gray /Blue /Green /Red }
  140.        {        % stack: v0 v1 v2 type keys comp
  141.          mark
  142.          2 index 0 get 8 -1 roll
  143.          4 index 1 get 9 -1 roll
  144.          6 index 2 get 10 -1 roll
  145.             % stack: type keys comp mark k0 v0 k1 v1 k2 v2
  146.          /HalftoneType 10 index .dicttomark
  147.          counttomark 2 roll
  148.        }
  149.       forall pop pop
  150.       /Default 1 index .dicttomark .sethalftone5
  151.     } bind def
  152. /sethalftone
  153.     { dup /HalftoneType get 1 sub
  154.        {  { mark /Default 2 index .dicttomark .sethalftone5 }
  155.           { 1 { /Frequency /Angle /SpotFunction }
  156.         { /RedFrequency /RedAngle /RedSpotFunction
  157.           /GreenFrequency /GreenAngle /GreenSpotFunction
  158.           /BlueFrequency /BlueAngle /BlueSpotFunction
  159.           /GrayFrequency /GrayAngle /GraySpotFunction
  160.         } .sethalftoneRGBV
  161.           }
  162.           { mark /Default 2 index .dicttomark .sethalftone5 }
  163.           { 3 { /Width /Height /Thresholds }
  164.         { /RedWidth /RedHeight /RedThresholds
  165.           /GreenWidth /GreenHeight /GreenThresholds
  166.           /BlueWidth /BlueHeight /BlueThresholds
  167.           /GrayWidth /GrayHeight /GrayThresholds
  168.         } .sethalftoneRGBV
  169.           }
  170.           { dup .sethalftone5 }
  171.        } exch get exec
  172.     } odef
  173. % Redefine setscreen and setcolorscreen to recognize halftone dictionaries,
  174. % and to insert the Frequency and Angle into Type 1 halftones, per
  175. % Adobe TN 5085.
  176. /.fixsethalftonescreen
  177.  { dup /HalftoneType get 1 eq
  178.     { dup wcheck not { dup length dict copy } if
  179.       dup /Frequency 4 index put
  180.       dup /Angle 3 index put
  181.     }
  182.    if
  183.  } bind def
  184. /setscreen
  185.     { dup type /dicttype eq
  186.        { .fixsethalftonescreen sethalftone pop pop }
  187.        { //setscreen }
  188.       ifelse
  189.     } odef
  190. /setcolorscreen
  191.     { dup type /dicttype eq
  192.        { .fixsethalftonescreen sethalftone 11 { pop } repeat }
  193.        { //setcolorscreen }
  194.       ifelse
  195.     } odef
  196. % Redefine currentscreen and currentcolorscreen to extract the Frequency
  197. % and Angle from Type 1 halftones, per Adobe TN 5085.
  198. /.fixcurrenthalftonescreen    % <dict> .fix... <freq> <angle> <proc>
  199.  { dup /HalftoneType get 1 eq
  200.     { dup /Frequency get 1 index /Angle get }
  201.     { 60 0 }
  202.    ifelse 3 2 roll
  203.  } bind def
  204. /currentscreen
  205.     { .currenthalftone
  206.        { { .fixcurrenthalftonescreen }    % halftone
  207.          { }                % screen
  208.          { 12 3 roll 9 { pop } repeat    % colorscreen
  209.            dup type /dicttype eq { .fixcurrenthalftonescreen } if
  210.          }
  211.        }
  212.       exch get exec
  213.     } odef
  214. /currentcolorscreen
  215.     { .currenthalftone
  216.        { { .fixcurrenthalftonescreen 3 copy 6 copy }    % halftone
  217.          { 3 copy 6 copy }            % screen
  218.          { }                % colorscreen
  219.        }
  220.       exch get exec
  221.     } odef
  222.  
  223. % ------ User objects ------ %
  224.  
  225. /.localarray where
  226.  { pop }
  227.  { /.localarray
  228.     { currentglobal false setglobal
  229.       exch array exch setglobal
  230.     } bind def
  231.  }
  232. ifelse
  233. /defineuserobject
  234.     { userdict /.UserObjects known
  235.        { 1 index userdict /.UserObjects get length ge
  236.           { 1 index 1 add .localarray userdict /.UserObjects get
  237.         1 index copy pop
  238.         userdict /.UserObjects 3 -1 roll put
  239.           }
  240.          if
  241.        }
  242.        { userdict /.UserObjects 3 index 1 add .localarray put
  243.        }
  244.       ifelse
  245.       userdict /.UserObjects get 3 1 roll put
  246.     } odef
  247. /execuserobject
  248.     { userdict /.UserObjects get exch get exec
  249.     } odef
  250. /undefineuserobject
  251.     { userdict /.UserObjects get exch null put
  252.     } odef
  253.  
  254. % ------ User paths ------ %
  255.  
  256. % We define upath carefully so it won't leave garbage on the stack
  257. % if an error occurs.
  258. /upath
  259.     { [
  260.        { 1 index {/ucache cvx} if true .pathbbox /setbbox cvx
  261.          {/moveto cvx} {/lineto cvx} {/curveto cvx} {/closepath cvx}
  262.          pathforall ]
  263.        }
  264.       stopped
  265.        { cleartomark /upath load $error /errorname get signalerror
  266.        }
  267.       if cvx exch pop
  268.     } odef
  269.  
  270. % Dummy definitions for cache control operators
  271.  
  272. /ucachestatus
  273.     { mark 0 0 0 0 0 } odef
  274. /setucacheparams
  275.     { cleartomark } odef
  276.  
  277. end                % level2dict
  278.